home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •Games Parlour• / •Yahtzee• / Hyper Yahtzee 3.0 •••• / Hyper Yahtzee 3.0 ееее / background_2620.txt < prev    next >
Text File  |  1990-09-08  |  9KB  |  400 lines
  1. -- background: 2620 from stack: in.0 –µ–µ–µ–µ
  2. -- bmap block id: 2513
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openStack
  8.   hide message box
  9.   show menuBar
  10.   pass openStack
  11. end openStack
  12.  
  13. on showrightscore
  14.   set cursor to 4
  15.   set lockscreen to true
  16.   if hilite of bkgnd btn 8 then
  17.     hide field 3
  18.     hide field 4
  19.     show field 9
  20.     show field 10
  21.     put 1 into field 11
  22.   else
  23.     show field 3
  24.     show field 4
  25.     hide field 9
  26.     hide field 10
  27.     put 6 into field 11
  28.   end if
  29.   set lockscreen to false
  30. end showrightscore
  31.  
  32.  
  33.  
  34. -- part 17 (field)
  35. -- low flags: 01
  36. -- high flags: 2000
  37. -- rect: left=172 top=40 right=319 bottom=254
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: HUMAN SCORE
  46.  
  47.  
  48. -- part 18 (field)
  49. -- low flags: 01
  50. -- high flags: 2000
  51. -- rect: left=256 top=40 right=319 bottom=338
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: MAC SCORE
  60.  
  61.  
  62. -- part 19 (field)
  63. -- low flags: 81
  64. -- high flags: 0000
  65. -- rect: left=361 top=220 right=333 bottom=475
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 0
  69. -- font id: 4
  70. -- text size: 9
  71. -- style flags: 0
  72. -- line height: 11
  73. -- part name: 
  74. ----- HyperTalk script -----
  75. on mouseup
  76.   beep 2
  77.   answer "Clear 6 Round Game High Scores?" with "Yes" or "No"
  78.   if it="Yes" then
  79.     put empty into field 3
  80.     put empty into field 4
  81.   end if
  82. end mouseup
  83.  
  84.  
  85. -- part 20 (field)
  86. -- low flags: 81
  87. -- high flags: 0000
  88. -- rect: left=475 top=220 right=335 bottom=505
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 0
  92. -- font id: 4
  93. -- text size: 9
  94. -- style flags: 0
  95. -- line height: 11
  96. -- part name: 
  97. ----- HyperTalk script -----
  98. on mouseup
  99.   edit script of stack
  100.   send mouseup to field 3
  101. end mouseup
  102.  
  103.  
  104. -- part 21 (field)
  105. -- low flags: 01
  106. -- high flags: 0000
  107. -- rect: left=448 top=168 right=187 bottom=475
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: 
  116.  
  117.  
  118. -- part 22 (field)
  119. -- low flags: 01
  120. -- high flags: 2000
  121. -- rect: left=172 top=312 right=333 bottom=254
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: GAME SCORE
  130.  
  131.  
  132. -- part 23 (field)
  133. -- low flags: 01
  134. -- high flags: 2000
  135. -- rect: left=256 top=312 right=332 bottom=338
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: MAC GAME SCORE
  144.  
  145.  
  146. -- part 24 (button)
  147. -- low flags: 00
  148. -- high flags: C006
  149. -- rect: left=412 top=51 right=69 bottom=502
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: Human
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   if the short name of btn 21<>"New Game" then
  161.     beep
  162.     answer "Cannot change until this game is over." with "OK"
  163.     exit mouseup
  164.   end if
  165.   set hilite of me to true
  166.   set hilite of bkgnd btn 2 to false
  167. end mouseUp
  168.  
  169.  
  170.  
  171. -- part 25 (button)
  172. -- low flags: 00
  173. -- high flags: 8006
  174. -- rect: left=412 top=68 right=86 bottom=502
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 0 / 0
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: Macintosh
  183. ----- HyperTalk script -----
  184. on mouseUp
  185.   if the short name of btn 21<>"New Game" then
  186.     beep
  187.     answer "Cannot change until this game is over." with "OK"
  188.     exit mouseup
  189.   end if
  190.   set hilite of me to true
  191.   set hilite of bkgnd btn 1 to false
  192. end mouseUp
  193.  
  194.  
  195.  
  196. -- part 26 (button)
  197. -- low flags: 00
  198. -- high flags: 8006
  199. -- rect: left=412 top=89 right=107 bottom=502
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 0 / 0
  202. -- text alignment: 1
  203. -- font id: 0
  204. -- text size: 12
  205. -- style flags: 0
  206. -- line height: 16
  207. -- part name: Human
  208. ----- HyperTalk script -----
  209. on mouseUp
  210.   if the short name of btn 21<>"New Game" then
  211.     beep
  212.     answer "Cannot change until this game is over." with "OK"
  213.     exit mouseup
  214.   end if
  215.   set hilite of me to true
  216.   set hilite of bkgnd btn 4 to false
  217. end mouseUp
  218.  
  219.  
  220.  
  221. -- part 27 (button)
  222. -- low flags: 00
  223. -- high flags: C006
  224. -- rect: left=412 top=106 right=124 bottom=502
  225. -- title width / last selected line: 0
  226. -- icon id / first selected line: 0 / 0
  227. -- text alignment: 1
  228. -- font id: 0
  229. -- text size: 12
  230. -- style flags: 0
  231. -- line height: 16
  232. -- part name: Macintosh
  233. ----- HyperTalk script -----
  234. on mouseUp
  235.   if the short name of btn 21<>"New Game" then
  236.     beep
  237.     answer "Cannot change until this game is over." with "OK"
  238.     exit mouseup
  239.   end if
  240.   set hilite of me to true
  241.   set hilite of bkgnd btn 3 to false
  242. end mouseUp
  243.  
  244.  
  245.  
  246. -- part 32 (button)
  247. -- low flags: 00
  248. -- high flags: 8000
  249. -- rect: left=172 top=32 right=44 bottom=254
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 1
  253. -- font id: 0
  254. -- text size: 12
  255. -- style flags: 8192
  256. -- line height: 16
  257. -- part name: Human
  258.  
  259.  
  260. -- part 33 (button)
  261. -- low flags: 00
  262. -- high flags: C000
  263. -- rect: left=256 top=32 right=44 bottom=338
  264. -- title width / last selected line: 0
  265. -- icon id / first selected line: 0 / 0
  266. -- text alignment: 1
  267. -- font id: 0
  268. -- text size: 12
  269. -- style flags: 8192
  270. -- line height: 16
  271. -- part name: Macintosh
  272.  
  273.  
  274. -- part 34 (field)
  275. -- low flags: 81
  276. -- high flags: 2000
  277. -- rect: left=448 top=159 right=178 bottom=476
  278. -- title width / last selected line: 0
  279. -- icon id / first selected line: 0 / 0
  280. -- text alignment: 0
  281. -- font id: 0
  282. -- text size: 12
  283. -- style flags: 0
  284. -- line height: 16
  285. -- part name: Whosgo
  286.  
  287.  
  288. -- part 35 (field)
  289. -- low flags: 01
  290. -- high flags: 0000
  291. -- rect: left=361 top=220 right=333 bottom=475
  292. -- title width / last selected line: 0
  293. -- icon id / first selected line: 0 / 0
  294. -- text alignment: 0
  295. -- font id: 4
  296. -- text size: 9
  297. -- style flags: 0
  298. -- line height: 11
  299. -- part name: 
  300. ----- HyperTalk script -----
  301. on mouseup
  302.   beep 2
  303.   answer "Clear 1 Round Game High Scores?" with "Yes" or "No"
  304.   if it="Yes" then
  305.     put empty into field 9
  306.     put empty into field 10
  307.   end if
  308. end mouseup
  309.  
  310.  
  311. -- part 38 (field)
  312. -- low flags: 01
  313. -- high flags: 0000
  314. -- rect: left=475 top=220 right=335 bottom=505
  315. -- title width / last selected line: 0
  316. -- icon id / first selected line: 0 / 0
  317. -- text alignment: 0
  318. -- font id: 4
  319. -- text size: 9
  320. -- style flags: 0
  321. -- line height: 11
  322. -- part name: 
  323. ----- HyperTalk script -----
  324. on mouseup
  325.   edit script of stack
  326.   click at loc of field 3
  327. end mouseup
  328.  
  329.  
  330. -- part 39 (button)
  331. -- low flags: 00
  332. -- high flags: 8006
  333. -- rect: left=412 top=144 right=162 bottom=502
  334. -- title width / last selected line: 0
  335. -- icon id / first selected line: 0 / 0
  336. -- text alignment: 1
  337. -- font id: 0
  338. -- text size: 12
  339. -- style flags: 0
  340. -- line height: 16
  341. -- part name: 6 Rounds
  342. ----- HyperTalk script -----
  343. on mouseUp
  344.   if not hilite of me then
  345.     if the short name of btn 21<>"New Game" then
  346.       beep
  347.       answer "Cannot change until this game is over." with "OK"
  348.       exit mouseup
  349.     end if
  350.     set hilite of me to true
  351.     set hilite of bkgnd btn 8 to false
  352.     showrightscore
  353.     set the name of card btn 39 to "6 Round Game"
  354.   end if
  355. end mouseUp
  356.  
  357.  
  358.  
  359. -- part 40 (button)
  360. -- low flags: 00
  361. -- high flags: C006
  362. -- rect: left=412 top=127 right=145 bottom=502
  363. -- title width / last selected line: 0
  364. -- icon id / first selected line: 0 / 0
  365. -- text alignment: 1
  366. -- font id: 0
  367. -- text size: 12
  368. -- style flags: 0
  369. -- line height: 16
  370. -- part name: 1 Round
  371. ----- HyperTalk script -----
  372. on mouseUp
  373.   if not hilite of me then
  374.     if the short name of btn 21<>"New Game" then
  375.       beep
  376.       answer "Cannot change until this game is over." with "OK"
  377.       exit mouseup
  378.     end if
  379.     set hilite of me to true
  380.     set hilite of bkgnd btn 7 to false
  381.     showrightscore
  382.     set the name of card btn 39 to "1 Round Game"
  383.   end if
  384. end mouseUp
  385.  
  386.  
  387.  
  388. -- part 41 (field)
  389. -- low flags: 01
  390. -- high flags: 0000
  391. -- rect: left=480 top=168 right=187 bottom=507
  392. -- title width / last selected line: 0
  393. -- icon id / first selected line: 0 / 0
  394. -- text alignment: 1
  395. -- font id: 0
  396. -- text size: 12
  397. -- style flags: 0
  398. -- line height: 16
  399. -- part name: 
  400.